home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
disk
/
bakup
/
mrbk220.lha
/
Rexx
/
yesno.mrbk
< prev
Wrap
Text File
|
1991-01-12
|
856b
|
44 lines
/* yesno.mrbk */
/* This simple ARexx program runs tests MRBackup's Yes/No requester. */
signal on ERROR
signal on BREAK_C
options results
if ~(Show('P', 'MRBackup_#1')) then do
say "You must run MRBackup first. With a little work, you could"
say "get this ARexx script to do it for you."
exit 1
end
address "MRBackup_#1"
poptofront
'yesno "Are you having a good time?"'
say result
if result == "Yes" then 'notealert "I am very glad to hear that!"'
else 'notealert "Sorry about that. I hope it isn''t my fault."'
exit 0
/*------------------------------------------------------------------*/
break_c:
say "*** Control-C recieved. Stopped by user. ***"
exit 5
/*------------------------------------------------------------------*/
error:
say "Error"
exit 6
/*------------------------------------------------------------------*/